gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\memInfo.asp
<%
dim rsObj,strSQL
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM member WHERE memberID = '"&Session("memberID")&"'"
'Response.Write strSQL
'Response.End
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
%>
<%if not (rsObj.eof or err) then %>
<form method = "post" action = "memSave.asp" name = "memModify" ID = "Form1">
<TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255) cellPadding = 0
width = "100%" borderColorLight = #aaaaaa border = 1 ID = "Table1">
<tbody>
<tr bgcolor = "#FFDBBD">
<td colspan = 2 height = "18" bgcolor = "rgb(210,232,255)">
<p align = "center">会员资料修改</p>
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "25" nowrap>
<div align = "right">会员帐号：</div>
</td>
<td width = "445" height = "25"> <%=rsObj("memberID")%> </td>
</tr>
<tr>
<td width = 70 align = "right" height = "25" nowrap>
<div align = "right">会员姓名：</div>
</td>
<td width = "445" height = "25">
<input type = "text" name = "name" size = "20" value = "<%=rsObj("name")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text1">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "25" nowrap>
<div align = "right"><font color = "#000000">会员性别：</font></div>
</td>
<td width = "445" height = "25">
<SELECT name = "sex" style = "background-color: rgb(210,232,255)" ID = "Select1">
<%if rsObj("sex") = "男" then %>
<option selected>男</option>
<option>女</option>
<%else %>
<option>男</option>
<option selected>女</option>
<%end if %>
</SELECT>
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">会员密码：</div>
</td>
<td width = "445" height = "26">
<input type = "checkbox" name = "modifyPassword" value = "1" ID = "Checkbox1">
<font color = "#FF0000">修改密码</font>
<input type = "password" name = "password1" size = "12" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Password1">
<input type = "password" name = "password2" size = "12" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Password2">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">密码提问：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "question" size = "40" value = "<%=rsObj("question")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text2">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">密码答案：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "answer" size = "40" value = "<%=rsObj("answer")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text3">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">电子邮件：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "email" size = "30" value = "<%=rsObj("email")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text4">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">常用电话：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "phone" size = "30" value = "<%=rsObj("phone")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text5">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">收货地址：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "address" size = "60" value = "<%=rsObj("address")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text6">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">邮政编码：</div>
</td>
<td width = "445" height = "26">
<input type = "text" name = "code" size = "10" value = "<%=rsObj("Zipcode")%>" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Text7">
</td>
</tr>
<tr>
<td width = 70 align = "right" height = "26" nowrap>
<div align = "right">已下订单：</div>
</td>
<td width = "445" height = "26">
<%
dim rsOrder
strSQL = "SELECT * FROM OrderList WHERE memberID = '" & Session("memberID") & "'"
set rsOrder = conn.execute (strSQL)
do while not (rsOrder.eof or err)
%>
<a href = orderSearch.asp?orderID=<%=rsOrder("id")%>><%=rsOrder("id")%></a>
<%
rsOrder.MoveNext
loop
rsOrder.Close()
Set rsOrder = Nothing
%>
</td>
</tr>
<tr bgcolor = "#FFDBBD">
<td colspan = "2" align = "right" height = "26" nowrap bgcolor = "rgb(210,232,255)">
<div align = "center">
<input type = "submit" name = "Submit2" value = "修改" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Submit1">
<input type = "button" name = "Submit3" value = "返回" onClick = "window.location = '<%=Session("oldUrl")%>'" style = "font-size: 9pt; border: 1px solid #7D85A2; background-color: rgb(210,232,255)" ID = "Button1">
</div>
</td>
</tr>
</tbody>
</table>
</form>
<%else %><br>
<div align = "center">您没有登陆，或该会员已被删除，请重新登陆一次。 <a href = "Javascript:window.history.go(-1)">返回</a>
</div>
<%end if %>